3.166 \(\int x (a+a \cos (x))^{3/2} \, dx\)

Optimal. Leaf size=89 \[ \frac{8}{9} a \cos ^2\left (\frac{x}{2}\right ) \sqrt{a \cos (x)+a}+\frac{16}{3} a \sqrt{a \cos (x)+a}+\frac{4}{3} a x \sin \left (\frac{x}{2}\right ) \cos \left (\frac{x}{2}\right ) \sqrt{a \cos (x)+a}+\frac{8}{3} a x \tan \left (\frac{x}{2}\right ) \sqrt{a \cos (x)+a} \]

[Out]

(16*a*Sqrt[a + a*Cos[x]])/3 + (8*a*Cos[x/2]^2*Sqrt[a + a*Cos[x]])/9 + (4*a*x*Cos[x/2]*Sqrt[a + a*Cos[x]]*Sin[x
/2])/3 + (8*a*x*Sqrt[a + a*Cos[x]]*Tan[x/2])/3

________________________________________________________________________________________

Rubi [A]  time = 0.0720092, antiderivative size = 89, normalized size of antiderivative = 1., number of steps used = 4, number of rules used = 4, integrand size = 12, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.333, Rules used = {3319, 3310, 3296, 2638} \[ \frac{8}{9} a \cos ^2\left (\frac{x}{2}\right ) \sqrt{a \cos (x)+a}+\frac{16}{3} a \sqrt{a \cos (x)+a}+\frac{4}{3} a x \sin \left (\frac{x}{2}\right ) \cos \left (\frac{x}{2}\right ) \sqrt{a \cos (x)+a}+\frac{8}{3} a x \tan \left (\frac{x}{2}\right ) \sqrt{a \cos (x)+a} \]

Antiderivative was successfully verified.

[In]

Int[x*(a + a*Cos[x])^(3/2),x]

[Out]

(16*a*Sqrt[a + a*Cos[x]])/3 + (8*a*Cos[x/2]^2*Sqrt[a + a*Cos[x]])/9 + (4*a*x*Cos[x/2]*Sqrt[a + a*Cos[x]]*Sin[x
/2])/3 + (8*a*x*Sqrt[a + a*Cos[x]]*Tan[x/2])/3

Rule 3319

Int[((c_.) + (d_.)*(x_))^(m_.)*((a_) + (b_.)*sin[(e_.) + (f_.)*(x_)])^(n_), x_Symbol] :> Dist[((2*a)^IntPart[n
]*(a + b*Sin[e + f*x])^FracPart[n])/Sin[e/2 + (a*Pi)/(4*b) + (f*x)/2]^(2*FracPart[n]), Int[(c + d*x)^m*Sin[e/2
+ (a*Pi)/(4*b) + (f*x)/2]^(2*n), x], x] /; FreeQ[{a, b, c, d, e, f, m}, x] && EqQ[a^2 - b^2, 0] && IntegerQ[n
+ 1/2] && (GtQ[n, 0] || IGtQ[m, 0])

Rule 3310

Int[((c_.) + (d_.)*(x_))*((b_.)*sin[(e_.) + (f_.)*(x_)])^(n_), x_Symbol] :> Simp[(d*(b*Sin[e + f*x])^n)/(f^2*n
^2), x] + (Dist[(b^2*(n - 1))/n, Int[(c + d*x)*(b*Sin[e + f*x])^(n - 2), x], x] - Simp[(b*(c + d*x)*Cos[e + f*
x]*(b*Sin[e + f*x])^(n - 1))/(f*n), x]) /; FreeQ[{b, c, d, e, f}, x] && GtQ[n, 1]

Rule 3296

Int[((c_.) + (d_.)*(x_))^(m_.)*sin[(e_.) + (f_.)*(x_)], x_Symbol] :> -Simp[((c + d*x)^m*Cos[e + f*x])/f, x] +
Dist[(d*m)/f, Int[(c + d*x)^(m - 1)*Cos[e + f*x], x], x] /; FreeQ[{c, d, e, f}, x] && GtQ[m, 0]

Rule 2638

Int[sin[(c_.) + (d_.)*(x_)], x_Symbol] :> -Simp[Cos[c + d*x]/d, x] /; FreeQ[{c, d}, x]

Rubi steps

\begin{align*} \int x (a+a \cos (x))^{3/2} \, dx &=\left (2 a \sqrt{a+a \cos (x)} \sec \left (\frac{x}{2}\right )\right ) \int x \cos ^3\left (\frac{x}{2}\right ) \, dx\\ &=\frac{8}{9} a \cos ^2\left (\frac{x}{2}\right ) \sqrt{a+a \cos (x)}+\frac{4}{3} a x \cos \left (\frac{x}{2}\right ) \sqrt{a+a \cos (x)} \sin \left (\frac{x}{2}\right )+\frac{1}{3} \left (4 a \sqrt{a+a \cos (x)} \sec \left (\frac{x}{2}\right )\right ) \int x \cos \left (\frac{x}{2}\right ) \, dx\\ &=\frac{8}{9} a \cos ^2\left (\frac{x}{2}\right ) \sqrt{a+a \cos (x)}+\frac{4}{3} a x \cos \left (\frac{x}{2}\right ) \sqrt{a+a \cos (x)} \sin \left (\frac{x}{2}\right )+\frac{8}{3} a x \sqrt{a+a \cos (x)} \tan \left (\frac{x}{2}\right )-\frac{1}{3} \left (8 a \sqrt{a+a \cos (x)} \sec \left (\frac{x}{2}\right )\right ) \int \sin \left (\frac{x}{2}\right ) \, dx\\ &=\frac{16}{3} a \sqrt{a+a \cos (x)}+\frac{8}{9} a \cos ^2\left (\frac{x}{2}\right ) \sqrt{a+a \cos (x)}+\frac{4}{3} a x \cos \left (\frac{x}{2}\right ) \sqrt{a+a \cos (x)} \sin \left (\frac{x}{2}\right )+\frac{8}{3} a x \sqrt{a+a \cos (x)} \tan \left (\frac{x}{2}\right )\\ \end{align*}

Mathematica [A]  time = 0.0661176, size = 45, normalized size = 0.51 \[ \frac{1}{9} a \sqrt{a (\cos (x)+1)} \left (4 \cos (x)+27 x \tan \left (\frac{x}{2}\right )+3 x \sin \left (\frac{3 x}{2}\right ) \sec \left (\frac{x}{2}\right )+52\right ) \]

Antiderivative was successfully verified.

[In]

Integrate[x*(a + a*Cos[x])^(3/2),x]

[Out]

(a*Sqrt[a*(1 + Cos[x])]*(52 + 4*Cos[x] + 3*x*Sec[x/2]*Sin[(3*x)/2] + 27*x*Tan[x/2]))/9

________________________________________________________________________________________

Maple [F]  time = 0.089, size = 0, normalized size = 0. \begin{align*} \int x \left ( a+a\cos \left ( x \right ) \right ) ^{{\frac{3}{2}}}\, dx \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(x*(a+a*cos(x))^(3/2),x)

[Out]

int(x*(a+a*cos(x))^(3/2),x)

________________________________________________________________________________________

Maxima [A]  time = 2.34028, size = 65, normalized size = 0.73 \begin{align*} \frac{1}{9} \,{\left (3 \, \sqrt{2} a x \sin \left (\frac{3}{2} \, x\right ) + 27 \, \sqrt{2} a x \sin \left (\frac{1}{2} \, x\right ) + 2 \, \sqrt{2} a \cos \left (\frac{3}{2} \, x\right ) + 54 \, \sqrt{2} a \cos \left (\frac{1}{2} \, x\right )\right )} \sqrt{a} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x*(a+a*cos(x))^(3/2),x, algorithm="maxima")

[Out]

1/9*(3*sqrt(2)*a*x*sin(3/2*x) + 27*sqrt(2)*a*x*sin(1/2*x) + 2*sqrt(2)*a*cos(3/2*x) + 54*sqrt(2)*a*cos(1/2*x))*
sqrt(a)

________________________________________________________________________________________

Fricas [F(-2)]  time = 0., size = 0, normalized size = 0. \begin{align*} \text{Exception raised: UnboundLocalError} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x*(a+a*cos(x))^(3/2),x, algorithm="fricas")

[Out]

Exception raised: UnboundLocalError

________________________________________________________________________________________

Sympy [F(-1)]  time = 0., size = 0, normalized size = 0. \begin{align*} \text{Timed out} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x*(a+a*cos(x))**(3/2),x)

[Out]

Timed out

________________________________________________________________________________________

Giac [F]  time = 0., size = 0, normalized size = 0. \begin{align*} \int{\left (a \cos \left (x\right ) + a\right )}^{\frac{3}{2}} x\,{d x} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x*(a+a*cos(x))^(3/2),x, algorithm="giac")

[Out]

integrate((a*cos(x) + a)^(3/2)*x, x)